home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Die Speccy' 97
/
Die Speccy' 97.iso
/
amiga_system
/
the_aminet
/
util
/
misc
/
ftransd_2_1a.lha
/
FTransD_2.1a
/
ARexx-Scripts
/
FTGed.ged
< prev
next >
Wrap
Text File
|
1995-07-15
|
5KB
|
118 lines
/* $VER: FTGed.ged 1.1 (06.06.95), ⌐1995 Rainer Hess
*
* V1.1 ARexx-Port-Name fⁿr FTrans V1.7 geΣndert. Anpassung fⁿr
* LockGUI/UnlockGUI.
*
* ARexx-Script basierend auf das ARexx-Script "empty.ged" von
* Dietmar Eilert, dem Autor des Texteditors GoldEd.
*
* Getestet mit der unregistrierten GoldEd-Version Release 2 (2.0.1)
* und der unregistrierten Release 2 (2.2.0).
*
* ARexx-Script, da▀ das Wort unter dem Cursor von GoldEd an FTrans
* weiterleitet und das Ergebnis der ▄bersetzung in einem Requester
* in GoldEd anzeigt.
*
* Beispiel zur Installation des ARexx-Scripts auf die Funktionstaste F9:
* ----------------------------------------------------------------------
* Es wird vorrausgesetzt, da▀ die "normale" Konfiguration von GoldEd
* verwendet wird und die MenⁿeintrΣge nicht vom Benutzer verΣndert
* wurden. So, nun aber zur installation...
*
* 1.) Diese Script "FTGed.ged" nach GoldEd:ARexx kopieren.
* 2.) GoldEd aufrufen.
* 3.) Im Menupunkt "Konfig" den Eintrag "Tastatur..." auswΣhlen.
* 4.) Im nun hoffentlich ge÷ffneten "Kommandorequester" von GoldEd
* die TastatureintrΣge unten rollen bis "F09" erscheint.
* 5.) Den Eintrag "F09" doppelklicken, nun sollte sich das
* "Kommandorequester" von GoldEd ÷ffnen.
* 6.) "L÷schen" betΣtigen um "TABS SOLID TOGGLE" zu entfernen.
* 7.) "Neu" betΣtigen.
* 8.) Dann beim Auswahlschalter "ARexx" anwΣhlen ("intern" sollte dann
* automatisch deaktiviert werden).
* 9.) Das Auswahlrequester ÷ffnen, indem man auf das Symbol (rechts
* neben neu) klickt.
* 10.) Im Auswahlrequester den Pfad fⁿr ARexx (GoldEd:ARexx) anklicken.
* Unter den Sctipts sollte nun auch FTGed.ged zu finden sein,
* diesen Eintrag anklicken. Das Requester mit der Auswahl von "Ok"
* beenden.
* 11.) Den "Komandorequester" nun auch mit "Ok" beenden.
* 12.) Ebenso auch den "Tastaturrequester" mit "Ok" bestΣtigen.
* 13.) Soll dieser Eintrag fⁿr die Funktionstaste F9 dauerhaft
* gespeichert werden, so ist im Menⁿpunt "Konfig" der Eintrag
* "Sichern..." anzuwΣhlen. Im "Sichernrequester" sollte
* als Pfad schon "GoldED:Config" und "GoldED.prefs" eingetragen
* sein. Das Requester ist in diesem Fall nur mit "Ok" zu
* bestΣtigen.
* 14.) Nun nur noch einen (englischen) Text einladen, FTrans starten
* und ⁿber einem Wort die Funktinstatse F9 betΣtigen. GoldEd sollte
* nun einem das ⁿbersetze Wort anzeigen.
*
* ACHTUNG! Es ist anzumerken, da▀ der ARexx-Server gestartet sein muss.
* Notfalls ist "RexxMast" im CLI zu starten oder das "RexxMast" Ikon
* anklicken. RexxMast sollte in der Schublade SYS:System zu finden sein.
* Soll das Lernfenster im Autolernmodus auf dem Bildschirm von GoldEd
* ge÷ffnet werden, so sollte bei FTrans im Lernmenⁿ bei "Bildschirm..."
* "- Aktiven Public-Screen -" gesetzt sein (ab FTrans 1.3 m÷glich), oder
* im ARexx-Script die Publicscreens direkt setzen (siehe hierzu auch das
* Script FTCed.ced).
*/
OPTIONS RESULTS /* enable return codes */
if (LEFT(ADDRESS(), 6) ~= "GOLDED") then /* not started by GoldEd ? */
address 'GOLDED.1'
'LOCK CURRENT' /* lock GUI, gain access */
OPTIONS FAILAT 6 /* ignore warnings */
SIGNAL ON SYNTAX /* ensure clean exit */
/* ------- BEGINN KOMUNIKATIONSCODE F▄R FTRANS UND GOLDED ----------- */
/* Anfrage ob FTrans aktiv ist */
IF ~show( 'p', 'FTRANS.1' ) THEN do
'REQUEST BODY="Oops! FTrans ist nicht aktiv. | Bitte FTrans aktivieren..."'
end
else do
/* Ja, FTrans ist aktiv, dann fangen wir an... */
'QUERY WORD VAR=dummy' /* Wort unter dem Cursor bei GoldEd abfragen. */
wort = result /* Das Ergebnis (Wort) merken */
/* Nun setzen wir unsere Port auf FTrans und komunizieren... */
address 'FTRANS.1' /* FTrans Arexx-Port setzen. */
LOCKGUI /* GUI gegen Zugriff schⁿtzen */
WORTARG wort /* Das Wort in "wort" ⁿbersetzen. */
uebersetzung = result /* Unser Ergebnis der ▄bersetzung merken. */
UNLOCKGUI /* Und GUI wieder frei geben */
address /* Nun schalten wir den Port wieder auf die GoldEd-Adresse */
/* Einen Text fⁿr das Requester zurecht setzen... */
ausgabe = 'Das englische Wort : ' || wort || '|bedeutet in deutsch: ' || uebersetzung
/* War die ▄bersetzung positiv oder negativ? */
if((right(uebersetzung, 1) == '}' | left(uebersetzung, 1) == '{')) then
ausgabe = 'Das Wort ' || uebersetzung || ' kommt im|aktuellen W÷rterbuch nicht vor!'
/* Nun rufen wir das Requester in GoldEd auf */
'REQUEST TITLE="FTrans/GoldEd-Info..." BODY="' || ausgabe || '" BUTTON=Weiter'
end
/* ---------------------- END OF YOUR STANDART GOLDED-CODE --------------------- */
'UNLOCK' /* VERY important: unlock GUI */
EXIT
SYNTAX:
SAY "Sorry, error line" SIGL ":" ERRORTEXT(RC) ":-("
'UNLOCK'
EXIT